﻿Imports Autodesk.AutoCAD.Runtime
Imports Licenta3.Common.Classes

Public Class Anexa3ViewModel
    Inherits AnexaViewModel(Of Anexa3Class)

    Public Sub New()
        'Dim aproprietar As New ProprietarClass
        'aproprietar.Nume = "Vasilescu Ion"
        'aproprietar.adresa.adresaIntreaga = "strada curului"
        'aproprietar.SerieCI = "GL"
        'aproprietar.NrCI = "121212"
        'aproprietar.id = "4234234234234234"
        'aproprietar.tel = "+423452345"
        'aproprietar.email = "email@ema.il"
        'aproprietar.IsPF = True
        'Me.Anexa.Proprietari.Add(aproprietar)
        'Dim amobil As New Imobil
        'amobil.Adresa.adresaIntreaga = "acasa"
        'amobil.NrCadastral = "14"
        'amobil.NrCF = "123"
        'amobil.UAT = "vascauti"
        'Me.Anexa.Imobile.Add(amobil)
        Anexa.Autorizat = Setari.currentAutorizat
        Anexa.OCPI = Anexa.Autorizat.DefaultOCPI
        Anexa.BCPI = Anexa.Autorizat.DefaultBCPI
        'Me.UpdateAnexaUAT()
        'Me.Anexa.proprietar.Nume = "plm"
    End Sub

    Private _TipDocCadastrala As New TipDocCadastrala( _
        TipDocCadastrala.EnumDocCadastrala.PrimaInscriere,
        TipDocCadastrala.EnumDocCadastrala.PrimaInscriereUI,
        TipDocCadastrala.EnumDocCadastrala.InscriereConstructie,
        TipDocCadastrala.EnumDocCadastrala.ModificareaLimitei,
        TipDocCadastrala.EnumDocCadastrala.ModificareaSuprafetei,
        TipDocCadastrala.EnumDocCadastrala.DescriereaDezmembramintelor,
        TipDocCadastrala.EnumDocCadastrala.Reconstituire)
    Public ReadOnly Property TipDocCadastrala As TipDocCadastrala
        Get
            Return _TipDocCadastrala
        End Get
    End Property
    Private _TipRaspuns As New TipRaspuns
    Public ReadOnly Property TipRaspuns As TipRaspuns
        Get
            Return _TipRaspuns
        End Get
    End Property

End Class
